﻿Imports System.ComponentModel
Imports System.Text


Partial Public Class Form1
	Inherits DevExpress.XtraBars.Ribbon.RibbonForm
	Public Sub New()
		InitializeComponent()
	End Sub

    Private Sub btnNuevoAnalisis_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNuevoAnalisis.ItemClick
        Dim nuevoAnalisis As New frmNuevoAnalisi
        nuevoAnalisis.MdiParent = Me
        nuevoAnalisis.Show()
    End Sub

    Private Sub btnNuevoPaciente_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNuevoPaciente.ItemClick
        Dim nuevoPaciente As New frmAgregarPaciente
        nuevoPaciente.MdiParent = Me
        nuevoPaciente.Show()
    End Sub

    Private Sub btnAsignarTarjeta_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnAsignarTarjeta.ItemClick
        'Para el boton de asignar tarjeta
        Dim asignarTarjeta As New frmAsignarTarjeta
        asignarTarjeta.MdiParent = Me
        asignarTarjeta.Show()
    End Sub

    Private Sub btnNuevoDoctor_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNuevoDoctor.ItemClick
        Dim nuevoDoctor As New frmAgregarMedico
        nuevoDoctor.MdiParent = Me
        nuevoDoctor.Show()
    End Sub

    Private Sub btnIngresarResultados_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnIngresarResultados.ItemClick
        Dim ingresarResultados As New frmAgregarResultado
        ingresarResultados.MdiParent = Me
        ingresarResultados.Show()
    End Sub

    Private Sub btnVisualizacionResultados_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnVisualizacionResultados.ItemClick
        'Para el boton de visualización de todos los resultados de un análisis.
        Dim visualizarResultados As New frmVisualizarResultados
        visualizarResultados.MdiParent = Me
        visualizarResultados.Show()
    End Sub

    Private Sub btnNuevoTipoResultado_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNuevoTipoResultado.ItemClick
        Dim nuevoTipoResultado As New frmAgregarTipoResultado
        nuevoTipoResultado.MdiParent = Me
        nuevoTipoResultado.Show()
    End Sub

    Private Sub btnActualizarTipoResultado_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnActualizarTipoResultado.ItemClick
        Dim actualizarTipoResultado As New frmActualizarTipoResultado
        actualizarTipoResultado.MdiParent = Me
        actualizarTipoResultado.Show()
    End Sub

    Private Sub btnActualizarPaciente_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnActualizarPaciente.ItemClick
        Dim actualizarPaciente As New frmActualizarPaciente
        actualizarPaciente.MdiParent = Me
        actualizarPaciente.Show()
    End Sub

    Private Sub btnActualizarUsuario_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnActualizarUsuario.ItemClick
        Dim actualizarUsuario As New frmActualizarUsuario
        actualizarUsuario.MdiParent = Me
        actualizarUsuario.Show()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dashboard As New frmDashboard
        dashboard.MdiParent = Me
        dashboard.Show()
    End Sub

    Private Sub btnDashboard_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnDashboard.ItemClick
        Dim dashboard As New frmDashboard
        dashboard.MdiParent = Me
        dashboard.Show()
    End Sub

    Private Sub btnResultadosHistoricos_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnResultadosHistoricos.ItemClick
        Dim resultadosHistoricos As New frmResultadosHistoricosPaciente
        resultadosHistoricos.MdiParent = Me
        resultadosHistoricos.Show()
    End Sub

    Private Sub btnNuevoTipoAnalisis_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnNuevoTipoAnalisis.ItemClick
        Dim nuevoTipoAnalisis As New frmAgregarTipoAnalisis
        nuevoTipoAnalisis.MdiParent = Me
        nuevoTipoAnalisis.Show()
    End Sub
End Class
